APPENDIX A 



%! 

% (c) Copyright 2001 Adobe Systems Incorporated. 
% All rights reserved. 

% PostScript program to illustrate tiling. Tiles the page in 
% userspace and snap each tile to the largest clipping rectangle 
% that contains all of the pixels in device space. Image the entire 
% document with each tile set as a clipping rectangle. No stitching 
% errors will appear. 

% Control the tilesize and overlap by setting stepx,stepy and 
% overlap. 

% Put your test file in this procedure. 

% NOTE: Verify that your testfile does not use initclip or 

% initgraphics or any graphics operator that resets the pagedevice. 

/DrawTestFile { (dancers.eps) run } bind def 

% userspace step in x and y direction for tiling 
% This creates 72 point or 1 inch squares 
/stepx 72 def 
/stepy 72 def 

% tile overlap in userspace coordinates 
% This creates 1/72 of an inch overlaps 
/overlap 1 def 

% get extents of the page to print 

currentpagedevice /PageSize get (PageSize is ) print dup == aload pop 
/maxy exch def 
/maxx exch def 

% remember the default matrix 

/def matrix matrix currentmatrix def 

% computeclip - convert clippath in userspace to device space 
% coordinates. Modify to the nearest whole pixel included 
% in the clipping path. 

/computeclip % xl yl x2 y2 computeclip xl yl delx dely 



{ 

4 -2 roll % x2 y2 xl yl 

transform ceiling exch ceiling exch % x2 y2 xl 1 yl ' 

4 -2 roll % xl' yl' x2 y2 

transform floor exch floor exch % xl * yl 1 x2 y2 

2 index sub % xl ■ yl ' x2 1 dely 
exch % xl 1 yl 1 dely x2 1 

3 index sub % xl • yl ' dely delx 
exch % xl' yl' delx dely 

} bind def 

% image the page through each tile by creating overlapping 
% rectangles and then snapping them to the physical grid 
0 stepx maxx { 
/curx exch def 
0 stepy maxy { 

/cury exch def 
/cursave save def 

% compute the expanded tile 

curx overlap sub 

cury overlap sub 

curx stepx add overlap add 

cury stepy add overlap add 

% snap the tile to the grid 

computed ip 

(rectclip is ) print 4 array astore dup == flush aload pop 

% move into device coordinates 
[10 0 10 0] setmatrix 
rectclip 

/showpage { } bind def 

% can also redefine initclip, initgraphics and setpagedevice 
defmatrix setmatrix 
DrawTestFile 



cursave restore 
} for 

} for 
5 showpage 
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